home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arvis1 / launchmo.bas < prev    next >
BASIC Source File  |  1999-08-13  |  287b  |  13 lines
  1. Attribute VB_Name = "LaunchMod"
  2. Public Sub Pause(PauseTime As Double) ' waits
  3. Dim StartTime As Double
  4. StartTime = Timer
  5. Do While Timer < PauseTime + StartTime
  6.  DoEvents
  7. Loop
  8. End Sub
  9. Public Sub ThisDir() ' changes the dir to this dir
  10.  ChDrive App.Path
  11.  ChDir App.Path
  12. End Sub
  13.